home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / mgplp378.lha / magplip / Install < prev    next >
Text File  |  1996-03-10  |  5KB  |  160 lines
  1. ;
  2. ; $VER: install 34.2 (10 Mar 1996)
  3. ;
  4. ; Installer script for magPLIP package.
  5. ;
  6. ; (C) Copyright 1995 Marius Gröger
  7. ;     All Rights Reserved.
  8. ;
  9. ; $HISTORY:
  10. ;
  11. ; 10 Mar 1996 : 034.002 :  copy also scheme picture
  12. ; 30 Jul 1995 : 034.001 :  initial
  13. ;
  14.  
  15. (set #cpu           (database "cpu"))
  16. (set #level         @user-level)
  17. (set #device        "magplip.device")
  18. (set #config        "magPLIP.config")
  19. (set #helpfile      "magPLIP.guide")
  20. (set #picfile       "cable.iff")
  21. (set #more          "RUN SYS:Utilities/More")
  22. (set #install-notes "\"Installation Notes\"")
  23.  
  24. ; -------------------------- Installation mode ---------------------------
  25.  
  26. ; (The installer documentation says not to use this call
  27. ; final distribtions, but I know no way to let the next decision
  28. ; popping up in novice mode. If you do, please mail to
  29. ; mag@sysgo.de. Thanks.)
  30. (user 2)
  31. (set mode
  32.      (askoptions
  33.          (prompt "Which parts should be installed ?")
  34.          (choices "magPLIP device driver" "AmigaGuide® documentation" "schematic wiring picture")
  35.          (help @askoptions-help)
  36.      )
  37. )
  38. (user #level)
  39.  
  40. (set #installdevice (IN mode 0))
  41. (set #installguide (IN mode 1))
  42. (set #installpic (IN mode 2))
  43.  
  44. ; -------------------------- Installtion setup ---------------------------
  45.  
  46. (if #installdevice
  47.    (
  48.       (set #devicedir
  49.           (askdir
  50.                   (prompt "Please locate the directory for SANA II device drivers:")
  51.                   (help @askdir-help)
  52.                   (default "AmiTCP:DEVS/Networks")
  53.           )
  54.       )
  55.       (set #configdir
  56.           (askdir
  57.                   (prompt "Please locate the directory for SANA II configurations:")
  58.                   (help @askdir-help)
  59.                   (default "ENV:Sana2")
  60.           )
  61.       )
  62.    )
  63. )
  64.  
  65. (if #installguide
  66.    (set helpdir
  67.            (askdir
  68.                    (prompt "Please locate the directory for AmigaGuide®-Documents:")
  69.                    (help (cat "   Select here the directory where you keep your "\
  70.                               "AmigaGuide® online help documents.\n\n"
  71.                                @askdir-help
  72.                          )
  73.                    )
  74.                    (default "HELP:english")
  75.            )
  76.    )
  77. )
  78.  
  79. ; ------------------------- Device Installation --------------------------
  80.  
  81. (if #installdevice
  82.    (
  83.       (set #proc
  84.         (askchoice
  85.            (prompt (cat "There are diffent versions of \"" #device "\", each one optimized "
  86.                         "for a specific CPU type. Please select one: "))
  87.            (choices  "MC68000"
  88.                      "MC68020"
  89.                      "MC68040"
  90.            )
  91.            (help (cat "  Select here the CPU type that is installed in your system. "
  92.                  "\n\n  Currently, this is a MC" #cpu ".\n\n  If you select a certain CPU type "
  93.                  "in the choice box, \"" #device "\" will run on any CPU which "
  94.                  "type is higher or equal to the selection. However, it won't "
  95.                  "run on a system equipped with a lower type.\n\n"
  96.                  @askchoice-help)
  97.            )
  98.            (default 0)
  99.         )
  100.       )
  101.  
  102.       (copylib
  103.          (prompt (cat "Copying the device"))
  104.          (help @copylib-help)
  105.          (source (cat (tackon "DEVS/Networks" #device)
  106.                     (if (= 0 #proc) ".000")
  107.                     (if (= 1 #proc) ".020")
  108.                     (if (= 2 #proc) ".040")
  109.          ))
  110.          (dest #devicedir)
  111.          (newname #device)
  112.          (confirm)
  113.       )
  114.       (copyfiles
  115.          (prompt (cat "Copying the configuration file"))
  116.          (help @copylib-help)
  117.          (source (tackon "ENV/Sana2" #config))
  118.          (dest #configdir)
  119.          (confirm)
  120.       )
  121.    )
  122. )
  123.  
  124. ; ------------------------- Guide Installation --------------------------
  125.  
  126. ; install AmigaGuide file
  127. (if #installguide
  128.    (
  129.       (copyfiles
  130.               (prompt "Copying AmigaGuide file")
  131.               (help @copyfiles-help)
  132.               (source "help")
  133.               (dest helpdir)
  134.               (pattern (cat #helpfile "(%|.info)"))
  135.               (confirm)
  136.       )
  137.    )
  138. )
  139.  
  140. ; install picture file
  141. (if #installpic
  142.    (
  143.       (copyfiles
  144.               (prompt "Copying schematic picture")
  145.               (help @copyfiles-help)
  146.               (source "help")
  147.               (dest helpdir)
  148.               (pattern (cat #picfile "(%|.info)"))
  149.               (confirm)
  150.       )
  151.    )
  152. )
  153.  
  154. ; --------------------- Display Installation Notes -----------------------
  155.  
  156. (if (OR #installclient #installserver)
  157.    (run #more #install-notes)
  158. )
  159.  
  160.